let lang = "fr"
let wiki_link = "http://" ^ lang ^ ".wikipedia.org/w/api.php?"

let and_ = "&"

let action = "action=query"

let list = "list=backlinks"

let page = "bltitleObjective Caml"

let format = "format=xml"

let limit = "bllimit=10"

let query = wiki_link ^ action ^ and_ ^ list ^ and_
  ^ format ^ and_ ^ limit ^ and_ ^ page 

let _ =
  print_endline query
